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| **F ILE**1D**BASCTRLO 
BBBBBBBB AAAAAA SSSSSS55 CCCCCCCC =TTTTTTITTTT RRRRRRRR LL 000000 
BBBBBBBB AAAAAA SSSSSSSS CCCCCCCC =TTTTTTTTTT RRRRRRRR LL 000000 
BB BB AA AA SS CC TT RR RR LL 09 00 
BB BB AA AA SS cc TT RR RR LL 00 00 
BB BB AA AA SS cc TT RR RR LL 00 00 
BB BB AA AA SS cc TT RR RR LL 00 00 
BBBBBBBB AA AR SSSSSS cc TT RRRRRRRR LL 00 00 
BBEBBBBB AA AR SSSSSS cc TT RRRRRRRR LL 00 00 
BB BB AAAAAAAAAA sS CC TT RR RR LL 00 00 
BB BB AAAAAAAAAA SS CC TT RR RR LL 00 00 
BB BB AA AR sS CC TT RR RR LL 00 00 eoee 
8B BB AA AA ss CC TT RR RR LL 00 00 cece 
BBBBBBBB AA AA SSSSSSSS cccccccc TT RR RR LLLLLLLLLL 000000 eae 
BBBBBBBB AA AA SSSSSSSS cccccccc TT RR RR LLLLLLLLLL 000000 cece 
LL III] SSSSSSSS 
LL 111] SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] SS 
LLLLLLLLLL IIIII1 SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 


D 12 
| BASSCTRLO 16-Sep-1984 00:10:2 Ax-11 8B 
12-80 e= hoc 90:38:28 EBASRTL” 
1 001 MODULE BASSCTRLO ( ! Turn control 0 on or off 
¢ 38 pPent = '1-004' ! File: BASCTRLO.B32 Edit: 
= 
at ear 
$ 0006 ! Spa ERA RER NUR MRR! OIE ITE ne oe ae eT. 
.* 
3 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 6 * 
09 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
19 Beit : o ALL RIGHTS RESERVED. * 
D4 + 
1 iY 1 !* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
15 Bet? 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 Big 1 !* RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
\ Bet : we TRANSFERRED. * 
'« e 
19 $019 1 !® THE gale IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 8053 : . CORPORAT iON. * 
4 * 
$¢ 8038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
25 0025 1 !* * 
26 0026 1 !* * 
a7 0027 1 VRE RRR RERRAERAAAAARAAEAREREREEAEEEE EERE AEE ARAREEAAAREEERREEE 
28 0028 1! 
$2 594 1 
0 0030 1 !++ 
¢) 0031 1 ! FACILITY: VAX=11 BASIC Miscellaneous 1/0 
2 ite 1 / 
33 003 1 i ABSTRACT: 
34 0034 1! 
35 0035 1! This module contains the BASIC CTRLO and RCTRLO functions, 
$8 6038 : Which suppress and unsuppress output on a specified channel. 
$ sit : ENVIRONMENT: VAX-11 User Mode 
29 poe? ' AUTHOR: John Sauter, CREATION DATE: 19-APR-1979 
42 ones 1! MODIFIED BY: 
43 0043 1: 
44 044 1! 1-001 - Or riginal. 
45 045 1! 1-002 - Set up 1SBSA_ USER_FP. JBS 25-JUL-1979 
46 0046 1 ! 1-003 = Correct test of LOB$V_OPENED. JBS 26-FEB-1980 
or O06? ~ 1-004 = Set CCO bit on the sutnos side of channel 0. JBS 31-MAR-1980 
49 0049 1 
50 0050 1 !<BLF/PAGE> 
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r ; 051 1! 
13 0 § 1 ! SWITCHES: 
} 3 08% : 

3 $ Bpee : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
i 3 bos? | 

; 60 0059 1! 

co on 0060 1 

ea 061 1 REQUIRE ‘RTLIN:OTSLNK'; ! Define Linkages 

3; § 490 1 

; 664 491 1! 

3; 69 Beas 1 ! TABLE OF CONTENTS: 

>; 66 495 1! 

3; «OF 0494 1 

; 68 0495 1 FORWARD ROUTINE 

; 69 oh 4) 1 BASSCTRLO ! Suppress output 

: 2 0497 1 BASSRCTRLO; ! Cease suppressing output 
3; 0498 1 

it = 0499 1! 

; 7 0500 1 ! INCLUDE FILES: 

3; 0501 1! 

. 0502 1 , 

3 v8 ay ' REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions 

; 44 FE : REQUIRE *RTLML:OTSISB'; ! Get ISB definitions 

3 90 +H ! REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
; G2 0909 1 LIBRARY ‘RTLSTARLE'; ! System symbols 

3; @ 0910 1 

; 0911 1! 

; 85 O3§ 1 ! MACROS: 

; «686 0915 1! 

; OT 0914 1! NONE 

; 88 0915 1! 

; wy 3318 1 ! EQUATED SYMBOLS: 

; 90 0917 1! 

; 0918 1! NONE 

; 9 0919 1! 

; 0920 1 ! PSECTS: 

; 9% 0921 1! ; 
3 +4 $356 ' DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
5; WF $954 1 ! OWN STORAGE: 

; «98 0925 1! 

3; WW 3968 7 NONE 

: 100 83 7 3 

; 101 928 1 ! EXTERNAL REFERENCES: 

; 196 0929 1! 

: 10 09350 1 

3 6104 O33) 1 EXTERNAL ROUTINE 

; 105 9 § 1 BASSSOPEN ZERO : NOVALUE ! Open channel zero 

; 106 0933 1 BAS$$CB_POSH : JSB_CB PUSH NOVALUE, i Load register CCB 

: 107 0934 1 BAS$$C(B"POP : JSB_CB_POP NOVALUE, ' Done with register CCB 

: 108 0935 1 BASS$STOP_IO : NOVALOE; ! Signal fatal 1/0 error 


| F 12 
‘pegge™me 1ecSep-1986 1:54:48 EBAsRT SnedeAscYRLO.030; 1 


PN O37 1s 

\3 | , : ; The following are the error codes used in this module. 

Pug 0940 1 

(3 («116 941 1 EXTERNAL LITERAL 

13 144 Boe ' BASS$K_IO_CHANOT : UNSIGNED (8); ! Channel not open. 


12 

CTRLO 1S-se -1984 00:10:2 AX-11 Bliss-32 V4. Page 
Mont aioe 1 90:30:28 aNSRTL saeiBAecYRio.6s B32;1 . 
2355 944 1 GLOBAL ROUTINE BASSCTRLO ( ! Suppress euteyt 
is 11 945 1 CHAN ! Channel on which to suppress output 
; 120 946 «1 d= 
; 121 947 4 
Ha ¢ 948 1 !44 
3 : ? 208 ; FUNCTIONAL DESCRIPTION: 
s 125 333 1! Simulates cerns, a control 0 on the terminal open on the 
% $ 326 1! specified channel. 
2 ie 955 1! 
5 : : 8328 : FORMAL PARAMETERS: 
s 130 0356 1! CHAN. rl.v The channel wane terminal to simulate a 
3s 131 957 1! control 0 o 
3 7 4 0958 1! 
3 0959 1°! IMPLICIT INPUTS: 
2 0960 1! 
3; «6135 0961 1! NONE 
3 136 8366 1! 
WS). 0965 1 ! IMPLICIT OUTPUTS: 
; «138 0964 1! 
; i 0965 1! LUB$V_CCO Cancel control 0. 
; 140 0966 1! 
3 161 0967 71 ! ROUTINE VALUE: 
3 re 0968 1 ! COMPLETION CODES: 
; «14 0969 1! 
3 61446 0970 1! SS$_NORMAL 
3: 145 0971 1! 
; 146 0972 1 ! SIDE EFFECTS: 
: 147 0975 1! 
: 148 0974 1! Sionels if an error is encountered. 
3: «6149 0975 1! ASS$$CB_PUSH will signal if the channel number is invalid. 
; 150 0976 1! one function is a no-operation if the channel is not open. 
3 151 0977 1! 
: 13¢ 0978 1 !-- 
cae 0979 #1 
3 «61546 0980 BEGIN 
s 35 0981 
; 156 098 BUILTIN 
3 157 098 FP; 
; 158 0984 
3; 159 0985 GLOBAL REGISTER 
: 160 0986 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
: 161 987 
; log 988 LOCAL 
s 0989 FMP : REF BLOCK C, BYTE); 
: 164 0990 
3; «6165 0991 FMP = FP; 
: 166 099 '¢ 
: 167 99 ' Get the CCB for the channel. 
3; 168 994 !e 
: 169 995 
: 170 09 IF (.CHAN EQL 0) 
s 171 099 H 
: te 4 348: BEGIN 
» OF 999 '¢ : , ; 
3; «(1746 1000 ! The user is referencing his controlling terminal. 
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le 

BASSSCB_PUSH (LUBSK_LUN BPRI, LUBSK_ILUN_MIN); 
CCB CISBSA_USER_FPJ~= .FMP bge$e sanecrey: 
2 
1 


=) 
~ 
uw 


FANS 


14 
} If the controlling terminal is not yet open, open it. 


ooooo 


DWNAUEWN $9 ODNAU EWN OOOVNAUE HN OOONOuU 


If ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPJ); 
END 
ELSE 
. BEGIN 
! This is an ordinary channel. 


BAS$$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
5ce CISBSA_USER_FP] = .FMP-CSFSL_SAVE_FPI; 


4 
: If the channel is not now open, this function is a no-operation. 


IF (.CCB CLUBSV_OPENED)) 
THEN 
it BEGIN 
Now clear the CCO bit, so control O's will not be canceled. 
CCB CLUB$V_CCOJ = 0; 
END; 
'¢ 
We are done with register CCB. 


BASS$CB_POP (); 
RETURN TSS$_NORMAL) ; 
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' end of BASSCTRLO 
BASSCTRLO 
\1-004\ 


E 

T 
RN BASS$SOPEN_ZERO, BASS$SS$CB_PUSH 
“EXTRN BAS$$CB_POP, BASS$$STOP_TIO 
-EXTRN BASS$K_IO_CHANOT 


-PSECT _BASSCODE,NOWRT, SHR, PIC.2 


081¢ 00000 .ENTRY BASSCTRLO, Save R2,R3.R4,R11 > 0944 
54 000000006 00 i 00002 MOVAB BASS$$CB_PUSH, R4 : 
53 D pdOd 00009 MOVL FP, FMP ; 0991 
04 AC 3 0000C TSTL CHAN ; 0996 
1E 12 0000F BNEQ ~=«*i1$ : 
50 08 CE 00011 MNEGL #8, R > 1002 
52 08 CE 00014 MNEGL #8. R : 
64 16 00017 JSB BAS$$(B_PUSH : 


12 
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| FF4C OCB oc Ad 09 0019 MOVL 12¢EMP?, -180(CCB) 
| iE FC} =6AB CEB O00TF BLBS  -4(CCB), 3$ 
OC A3 DD 00023 PUSHL  12(FMP) 
| 000000006 00 01 FB 00026 CALLS #1, SASSSOPEN_ZERO 

OF 11 0002D BRB 2$ 
D4 OOO2F 1$ CLRL = RO 
| 52 04 AC DO 00031 MOVL CHAN, R2 

64 16 000 5 JSB BAS$$CB_PUSH 

FFGC CB 0c A3 00 990 MOVL 12¢FMP)> =180(CCB) 
04 FC OA E9 00 as: BLBC sat CB). 4$ 
AO AB 4 8A 00041 3$: BICB2 -96(CCB) 
000000006 00 if 0043 4$: JSB BASSSCB, POP 
| 50 1 90 00048 MOVL #1, RO~ 
04 0004E RET 


3; Routine Size: 79 bytes, Routine Base: _BASSCODE + 0000 


; 213 1039 1 
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GLOBAL ROUTINE BASSRCTRLO ( ' Cancel a typed control 0 
CHAN ' Channel on which to do this 
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* FUNCTIONAL DESCRIPTION: 
Cancels control 0 on the terminal open on the specified channel. 
FORMAL PARAMETERS: 
CHAN. rl.v The channel whose terminal to disable CTRLOing on 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
LUB$SV_CCO which, when set, cancels control 0. 


ROUTINE VALUE: 
COMPLETION CODES: 


SS$_NORMAL 

SIDE EFFECTS: 
slenets if an error is encountered. 
BA 


$$CB_PUSH will signal if the channel number is invalid. 
This routine is a no-operation if the channel is not open. 


BEGIN 
BUILTIN 
FP; 
GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
FMP : REF BLOCK C, BYTE); 


FMP = .FP; 


+ 


Get the CCB for the channel. 


If (.CHAN EQL 0) 
THEN 
BEGIN 


'¢ 
: The user is referencing his controlling terminal. 


BAS$$CB_PUSH (LUBSK_LUN_BPRI, LUBSK_ILUN_MIN); 


eo 


‘passcrmo beSep-19 4 00:10: 
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BASRTL.SRCJBASCTRLO.B32;1 


| z 097 3 CCB CISBSA_USER_FP) = .FMP CSFSL_SAVE_FPI; 
ie 4 ; If the controlling terminal is not yet open, open it. 
| . = 
7 101 
Ag 19¢ IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP]); 
79 104 END 
80 105 ELSE 
81 106 BEGIN 
og 10 ‘+ 
ti 198 } This is an ordinary channel. 
85 110 3 BASSS$CB_PUSH (.CHAN, LUBSK_LUN. MIN); 
86 111 CCB CISBSA_USER_FP)] = .FMP-CSFSL_SAVE_FP); 
87 112 END; 
88 113 
89 114 ‘+ 
90 12 : If the channel is not now open, this function is a no-operation. 
117 ; 
118 if (.CCB CLUB$V_OPENED]) 
5 120 BEGIN 
96 121 '¢ 
97 \$¢ ' Now set the CCO bit, which will cause the record level code 
4; 167 to tell RMS to cancel control 0. 
00 125 3 CCB CLUBSV_CCOJ = 1; 
301 126 END; 
0 16¢ 
30 128 '¢ , 
304 129 ! We are done with register CCB. 
305 130 t= 
306 131 BASS$S$CB_POP (); 
307 132 2 RETURN TSS$_NORMAL) ; 
308 133 «1 END; ! end of BASSRCTRLO 


081C 00000 ENTRY BASSRCTRLO, Save R2,R35,R4,R11 
$4 000000006 00 9¢ 90008 MOVAB BAS$$CB_PUSH, R4 
53 3D 00 000 MOVL FP, FMP 
04 AC D5 0000C TSTL CHAN 
1E 12 0000F BNEQ = 1$ 
50 8 CE 00011 MNEGL #8, RO 
52 8 CE 00014 MNEGL #8, R2 
64 16 00017 8 BAS$$CB_PUSH 
FF4C «CB 0c A3 DO 00019 MOVL  12(FMP)> -180(CCB) 
iE FC AB E8 OOO1F ~4(CCB), 
0C A3 DD 00023 PUSHL  12(FMP) 
000000006 00 01 FB 00026 CALLS #1, BASSSOPEN_ZERO 
OF 11 00020 BRB 2$ 
D4 O0¢F 1$: CLRL = RO 
52 04 AC 00 000351 MOVL CHAN, R2 
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; Size: 


Routine Size: 79 bytes, 


309 11% 1 
310 1135 1 END 
311 1138 1 
312 1137 0 ELUDOM 
Name 
_BASSCODE 
File 


-5255$DUA28: CSYSLIBISTARLET.L32;1 


Routine Base: 


12 
1b-Sep1 AX-11 Bliss-32 V4.0-74 
1a-Sep- 1382 90:29 38 BASRTL.SRCIB BASCY RLO.B32;1 
64 16 000 JSB A $B _PUSH 
FFOC (e 0c Ad 08 00 : MOVL Fred = =180(CCB) 
4 FC AB E93 003 38: BLBC =4(CCB). 4$ 
AO AB 04 8 00041 3$: BISB2 #4 ress 
000000006 00 16 00045 4$: JSB BASS 
50 01 00 06048 MOVL 1, 
04 0004E RET 


_BASSCODE + 004F 


! end of module BASSCTRLO 


PSECT SUMMARY 


Bytes Attributes 
158 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
euecnese Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
9776 2 0 581 00:01.1 


COMMAND QUALIFIERS 


: 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASCTRLO/OBJ=OBJ$:BASCTRLO MSRC$:BASCTRLO/UPDATE=(ENH$:BASCTRLO) 


Run Time 310, 
Slapeed i tase 00:24.3 
Lines/CPU Min: 68 
Locones/ Putin 40438 
enery Used: 117 pages 
ao ation Complete 


158 code + 0 data bytes 
0 0 


MENT CORPORATION 
SPRL A et 9 Na 


e 
A 


AH-BT13A-SE 
VAX/VMS V4.0 


0020 


